home *** CD-ROM | disk | FTP | other *** search
/ Floppy Magazine 1987 #1 / Floppy_Magazine_87-1_1987_Megasystems_Oy_fi_Side_B.d64 / hullu tiedemies (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  68 lines
  1. 0 poke53280,0:poke53281,0:print"[147]"tab(10)"hullu  tiedemies ..."
  2. 1 poke808,232:ifa=0thena=1:load" hullu1",8,1
  3. 2 forn=0to50:reada:poke51200+n,a:next
  4. 3 poke53265,59:poke53270,216
  5. 4 poke53272,11:poke56576,148
  6. 5 poke251,0:poke252,64:poke253,0:poke254,224:poke820,63:poke821,95:sys51200
  7. 6 poke251,0:poke252,96:poke253,0:poke254,192:poke820,207:poke821,103:sys51200
  8. 7 forn=0to9:geta$:next
  9. 8 gosub100
  10. 10 rem
  11. 20 print"new":print"load"chr$(34)" hullu2"chr$(34)",8,1":print"[145][145][145][145]";
  12. 60 poke631,13:poke632,13:poke633,82:poke634,117:poke635,13:poke198,5
  13. 70 poke44,16:poke808,225:end
  14. 90 data8,72,152,72,164,251,204,52,3,240,21,160,0,177,251,145,253
  15. 91 data230,251,208,2,230,252,230,253,208,233,230,254,76,4,200,172,53,3,196
  16. 92 data252,208,228,160,0,177,251,145,253,104,168,104,40,96,0
  17. 100 dimr(2,16),m1(6,6),m2(2,7)
  18. 101 forn=1to8:readj(n),k(n):next
  19. 102 a=278.46:b=log(2)/12:forn=0to2
  20. 103 form=1to16:readr(n,m):next:next
  21. 104 deffnmu(x)=a*exp(b*x)
  22. 105 dimhi(94),lo(94)
  23. 106 forn=26to69:ifn=42thenn=60
  24. 107 hi(n)=int(fnmu(n)/256)
  25. 108 lo(n)=int(fnmu(n))-256*hi(n)
  26. 109 next:forn=1to6:form=1to6
  27. 110 readm1(n,m):next:next:forn=1to2
  28. 111 form=1to7:readm2(n,m):next:next
  29. 120 l1=54272:l2=l1+7:l3=l2+7
  30. 121 h1=l1+1:h2=l2+1:h3=l3+1
  31. 122 v1=l1+4:v2=l2+4:v3=l3+4
  32. 130 poke54296,15
  33. 131 pokev1+1,105:pokev1+2,0
  34. 132 pokev2+1,100:pokev2+2,0
  35. 133 pokev3+1,5:pokev3+2,0
  36. 200 fori=0to4:gosub1000:ifvithenreturn
  37. 210 next:goto200
  38. 300 data1,1,2,2,1,1,3,2,4,1,5,2,4,1,6,2
  39. 301 data1,1,1,0,1,1,2,0,2,3,4,5,0,6,0,0
  40. 302 data1,0,1,0,2,0,3,0,3,4,0,4,5,6,7,0
  41. 303 data1,0,0,0,1,0,0,0,0,1,0,0,1,0,0,0
  42. 310 data65,65,65,65,60,62
  43. 320 data62,64,64,64,65,65
  44. 330 data62,64,64,65,67,69
  45. 340 data69,69,69,69,67,69
  46. 350 data67,64,64,65,67,69
  47. 360 data67,67,65,69,67,65
  48. 370 data41,36,41,36,33,29,26
  49. 380 data38,34,40,36,34,31,29
  50. 1000 forn=1to8+4*(i=4)
  51. 1010 form=1to16
  52. 1020 t=ti:gosub2000
  53. 1030 ift+10>tithen1030
  54. 1040 geta$:ifa$<>""thenvi=1:return
  55. 1050 next:next:return
  56. 2000 t1=r(0,m)andi<4:t2=r(1,m)and(i=1ori=3):t3=r(2,m)andi>1
  57. 2001 ift1thenpokev1,16
  58. 2002 ift2thenpokev2,16
  59. 2003 ift3thenpokev3,16
  60. 2010 ift1thenpokeh1,hi(m1(j(n),r(0,m)))
  61. 2020 ift1thenpokel1,lo(m1(j(n),r(0,m)))
  62. 2030 ift2thenpokeh2,hi(m2(k(n),r(1,m)))
  63. 2040 ift2thenpokel2,lo(m2(k(n),r(1,m)))
  64. 2050 ift3thenpokeh3,hi(69)
  65. 2060 ift3thenpokel3,lo(69)
  66. 2070 pokev1,17:pokev2,33:pokev3,17
  67. 2080 return
  68.